home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _SendMessage.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  566 b   |  23 lines
  1. #include <misc.au3>
  2.  
  3. _Main()
  4.  
  5. Func _Main()
  6.     Local Const $Off = 2, $On = -1
  7.  
  8.     Opt("WinTitleMatchMode", 4)
  9.     $hwnd = WinGetHandle('classname=Progman')
  10.     _ToggleMonitor($hWnd, $Off)
  11.     Sleep ( 3000 )
  12.     _ToggleMonitor($hWnd, $On)
  13. EndFunc
  14.  
  15. Func _ToggleMonitor($hwnd, $OnOff)
  16.     Local Const $WM_SYSCOMMAND = 274
  17.     Local Const $SC_MONITORPOWER = 61808
  18.     _SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
  19.     If @error Then
  20.         MsgBox(0,"_ToggleMonitor", "_SendMessage Error: " & @error)
  21.         Exit
  22.     EndIf
  23. EndFunc